home *** CD-ROM | disk | FTP | other *** search
- ;
- ; W.F.M.H. MaxManager © 1995-1996 Marcin Orlowski
- ;
- ; ---------------------------------------------------------
- ;
- ; ### ### ######### ### ### ### ###
- ; ### ### ### #### #### ### ###
- ; ### ### ### ### ## ### ### ###
- ; ### ### ######## ### ## ### ##########
- ; ### ## ### ######## ### ### ##########
- ; ### ## ### ### ### ### ### ###
- ; #### #### ## ### ## ### ### ## ### ### ##
- ; ### ### ## ### ## ### ### ## ### ### ##
- ;
- ; ---------------------------------------------------------
- ;
- ; Mental Pictures Developed Here
- ;
- ; Marcin Orlowski
- ; ul. Radomska 38
- ; 71-002 Szczecin
- ; Poland
- ;
- ; SilverDream!'s BBS: +48-(0)91-540431 (non-stop)
- ; FidoNet : 2:481/22.2
- ; GlobalNet: 52:4800/6
- ; Packet Radio: SQ1BSC@SR1BBS.#SZ.POL.EU
- ;
- ; Internet: carlos@dedal.man.szczecin.pl
- ;
- ; WWW page:
- ; http://dedal.man.szczecin.pl/~carlos/carlos.html
- ;
- ;
- ;--------------------------------------------------------------------
- ;
- ; W.F.M.H. MaxManager Installer script
- ;
- ;--------------------------------------------------------------------
- ;
- ; $VER: Installer of MaxManager © Marcin Orlowski
-
- (set __version 0)
- (set __revision 140)
- (set __date "12.04.1996")
-
- ;--------------------------------------------------------------------
-
- (if (= @language "english")
- (
- (set #WrongMUI "\n\nTo use MaxManager\nyou need to have MUI v3")
- (set #DestPrompt "Choose home for MaxManager\n(MaxManager dir will be created)")
- (set #Done (cat "\nDone!\n"
- "---------\n\n"
- "Now enjoy this release of \n"
- "W.F.M.H. MaxManager...\n\n"
- "Do NOT forget to register...\n\n\n"
- "© 1995-1996 Marcin Orlowski\n"
- "© 1995-1996 World Federation of Mad Hackers"
- )
- )
- (set #Info (cat "\n\nFor more information, latest update\n"
- "and the support files look at the\n"
- "dedicated WWW page:\n\n"
- "http://dedal.univ.szczecin.pl/~carlos\n\n\n"
- "Check also our support BBS:\n\n"
- "SilverDream!'s BBS: +48 91 540431 (non-stop)"
- )
- )
- )
- )
-
-
- ;--------------------------------------------------------------------
-
- (if (= @language "polski")
- (
- (set #WrongMUI "\n\nMax Manager wymaga systemu\nMUI w wersji 3+")
- (set #DestPrompt "Gdzie chcesz zainstalowaê MaxManagera?\n(katalog MaxManager zostanie zaîoûony)")
- (set #Done (cat "\nGotowe!\n"
- "---------\n\n"
- "Miîej pracy z programem\n"
- "W.F.M.H. MaxManager...\n\n\n"
- "... Nie zapomnij sie zarejestrowaê!...\n\n\n"
- "© 1995-1996 Marcin Orlowski\n"
- "© 1995-1996 World Federation of Mad Hackers"
- )
- )
- (set #Info (cat "\n\nWiëcej informacji oraz najnowszâ wersjë\n"
- "znajdziesz na dedykowanej stronie WWW\n\n"
- "http://dedal.univ.szczecin.pl/~carlos\n\n\n"
- "Zajrzyj równieû do naszego BBSu:\n\n"
- "SilverDream!'s BBS: 091 540431 (non-stop)"
- )
- )
- )
- )
-
- ;--------------------------------------------------------------------
-
- (set MUI_Version (getversion "LIBS:muimaster.library") )
- (if (> MUI_Version 720896)
- (abort #WrongMUI)
- )
-
-
- (complete 0)
- (welcome
- "\n"
- " ### ### ######### ### ### ### ###\n"
- " ### ### ### #### #### ### ###\n"
- " ### ### ### ### ## ### ### ###\n"
- " ### ### ######## ### ## ### ##########\n"
- " ### ## ### ######## ### ### ##########\n"
- " ### ## ### ### ### ### ### ###\n"
- " #### #### ## ### ## ### ### ## ### ###\n"
- " ### ### ## ### ## ### ### ## ### ###\n"
- "\n"
- " ------------------------------------------\n"
- " MaxManager " __version "." __revision " (" __date ")\n"
- " ------------------------------------------"
- )
-
- ;********************
-
- (set MM_dest
- (tackon
- (askdir
- (default "BBS:")
- (prompt #DestPrompt)
- (help @askdir-help)
- )
- "MaxManager")
- )
- (makedir MM_Dest (infos))
- (complete 20)
-
- (copyfiles
- (source "/MaxManager")
- (dest MM_dest)
- (infos)
- (all)
- )
- (complete 40)
-
- (copyfiles
- (source "/")
- (dest MM_dest)
- (infos)
- (pattern "Read Me First!#?")
- )
- (complete 60)
-
- (copyfiles
- (source "/")
- (dest MM_dest)
- (infos)
- (pattern "OrderForm#?")
- )
- (complete 80)
-
-
- (message #Done)
-
- (complete 90)
- (message #Info)
-
- (complete 100)
- (exit (QUIET))
-